home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / order blank-pa (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  66 lines
  1. 0 remsave"order blank-pa",8
  2. 10 print"[147][155]":poke53281,0:poke53280,4:
  3. 15 s$ ="                                "
  4. 18 t$=s$:gosub60000
  5. 20 t$=" [195][207][205][205][207][196][207][210][197][160]magazines order menu ":gosub60000
  6. 28 t$=s$:gosub60000:print
  7. 29 print:print"   [211]ubscribe to:":print
  8. 30 print"        1 = [208][207][215][197][210][160][208][204][193][217]":print
  9. 40 print"        2 = [195][207][205][205][207][196][207][210][197][160][205][201][195][210][207][195][207][205][208][213][212][197][210][211]":print
  10. 60 print"        3 = [194][207][212][200] magazines":print
  11. 70 print"        4 = exit"
  12. 100 getk$:ifk$<"1"ork$>"4"then100
  13. 200 onval(k$)gosub1000,2000,3000,4000
  14. 300 run
  15. 1000 m$="    [195]ommodore [208]ower [208]lay":is$="":p=1:py$="":gosub60900:return
  16. 2000 m$="    [195]ommodore [205]icrocomputers":is$="":p=1:py$="":gosub60900:return
  17. 3000 m$="  [195]ommodore [205]icrocomputers  &            [160][195]ommodore [208]ower [208]lay"
  18. 3004 is$=" each":p=2:py$="(12 issues total)"
  19. 3005 gosub60900
  20. 3010 return
  21. 4000 p$="order form":goto63000
  22. 50000 end
  23. 60000 printtab(20-len(t$)/2);t$:return
  24. 60900 print"[147][196]o you want to see the order blank on"
  25. 60910 print:print"the screen or the printer?  <s/p>"
  26. 60920 poke198,0:wait198,1:getpr$:ifpr$<>"p"thenpr$="s"
  27. 60924 if pr$><"p"then 60930
  28. 60925 print:print"[212]urn on your printer and press <space>."
  29. 60926 poke198,0:wait198,1:getk$
  30. 60930 gosub 61000
  31. 60990 return
  32. 61000 rem order blank
  33. 61005 print"[147]";
  34. 61006 print"       [207][210][196][197][210][160][194][204][193][206][203] - [204][207][193][196][211][212][193][210] #12"
  35. 61010 print"[205]ail to:":print"   [195]ommodore [194]usiness [205]achines, [201]nc."
  36. 61020 print"   [205]agazine [211]ubscription [196]ept."
  37. 61030 print"   [194]ox 651"
  38. 61040 print"   [200]olmes, [208][193]   19043"
  39. 61050 print:print"[217][197][211], start my one year (6 issues"is$")"
  40. 61060 print"subscription to:      "py$
  41. 61070 printm$
  42. 61080 print:print"      [213][211][193][160]$"15*p"[157].00     (circle one)"
  43. 61090 print"   [195][193][206][193][196][193][160]$"20*p"[157].00"
  44. 61100 print" [207][214][197][210][211][197][193][211][160]$"25*p"[157].00     [213][211][160]currency only"
  45. 61200 print:remprint
  46. 61210 print"[206]ame:.................................. [208]hone ................"
  47. 61220 print"[193]ddress................................"
  48. 61230 print"[195]ity ................. [211]t. ... [218]ip ...."
  49. 61240 print"[211]ignature ............................."
  50. 61250 print"[214]isa/[205]aster[195]ard # ..................... [197]xp. date ........."
  51. 61255 print
  52. 61260 print"[205]ake check or money order payable to    [195]ommodore [208]ublications.";
  53. 61400 ifpr$="p"thengosub61500
  54. 61405 ifpr$="q"then61490
  55. 61410 poke207,0:poke204,0:getk$:poke2039,rnd(1)*255:ifk$=""then61410
  56. 61490 poke204,1:poke207,0:return
  57. 61500 rem screen dump
  58. 61510 open4,4,7:cmd4
  59. 61515 print:print:print:print:print:print:print
  60. 61520 pr$="q":gosub 61000
  61. 61580 print#4:close4
  62. 61590 return
  63. 63000 rem connections
  64. 63010 print"[147]load"chr$(34)p$chr$(34)",8":print"run"
  65. 63020 poke631,13:poke632,13:poke198,2:end
  66.